home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / comms / amiga report / ararchive / install_ararchive < prev    next >
Text File  |  1995-04-12  |  5KB  |  167 lines
  1. ;
  2. ; Install For ARArchive ©1995 Robert Reiswig
  3. ; $Id: ARArchive  1.5 
  4. ;
  5. (set osver (/ (getversion "LIBS:version.library") 65536))
  6. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  7. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  8. ( if (= osver 41) ( (set workbench "4.0")) )))))
  9.  
  10. ( if (= osver 37) ( (set DefCpu 0)) ( if (= osver 38) ( (set DefCpu 1))
  11. ( if (= osver 39) ( (set DefCpu 2)) ( if (= osver 40) ( (set DefCpu 3))
  12. ( if (= osver 41) ( (set DefCpu 4)) )))))
  13.  
  14.  
  15. (if (< osver 37)  (abort "Sorry You need 2.0 or higher to run ARArchiver!") )
  16.  
  17. (message "ARArchive V1.3.08\n\nBy: Robert Reiswig\nrcr@netcom.com\n\n"
  18.          "This Installer will do a few things:\n\nCopy ARArchive to where you tell it."
  19.          "\nAdd an AR: assign to your User-Startup.\n "
  20.          "Create a 'C:ARA' script for ARArchive-XXX\n(If selected)"
  21. ) 
  22.  
  23.  
  24.  
  25.  
  26. (set How  (askchoice (choices "In LHA format (ie: ar301.lha)" "In LZX format (ie: ar301.lzx)" "In Uncompressed format (ie: ar301.guide)")
  27.                      (prompt "How do you store your Amiga Reports?")
  28.                  (help   "How do you store your Amiga Reports?")
  29.                      (default 0)
  30.       )
  31. )
  32.  
  33.  
  34. (if (= How 0) (set HowText "ARArchive-LHA") )
  35. (if (= How 1) (set HowText "ARArchive-LZX") )
  36. (if (= How 2) (set HowText "ARArchive") )
  37.  
  38.  
  39.  
  40.  
  41. (set ARA_dest
  42.         
  43.            (askdir
  44.                    (prompt (cat "Where do you wish to install:\n" HowText))
  45.                    (help @askdir-help)
  46.                    (default @default-dest)
  47.                    
  48.            )
  49.                 
  50.         
  51. )
  52.  
  53.  
  54. (set @default-dest ARA_dest) 
  55.  
  56.  
  57. (if (= How 0) (set HowCompress "LHA'ed") )
  58. (if (= How 1) (set HowCompress "LZX'ed") )
  59. (if (= How 2) (set HowCompress "Uncompressed (AmigaGuide)") )
  60.  
  61. (set AR_dest
  62.      
  63.                 (askdir
  64.                         (prompt (cat "In which drawer are the\n*" HowCompress "* Amiga Reports\nstored?"))
  65.                         (help @askdir-help)
  66.                         (default @default-dest)
  67.                 )
  68.                 
  69. )
  70.  
  71.  
  72. (set DoThis (cat "ASSIGN AR: " AR_dest))
  73. (run (DoThis))
  74.  
  75.  
  76.  
  77. (if (= How 0) (set HowCompress "LHA") )
  78. (if (= How 1) (set HowCompress "LZX") )
  79. (if (= How 2) (set HowCompress "Uncompressed (AmigaGuide)") )
  80.  
  81.  
  82. (if (= How 0) (copyfiles (source "ARArchive-LHA") (dest ARA_dest) (infos) ))
  83. (if (= How 1) (copyfiles (source "ARArchive-LZX") (dest ARA_dest) (infos) ))
  84. (if (= How 2) (copyfiles (source "ARArchive") (dest ARA_dest) (infos) ))
  85.  
  86.  
  87. (if (< How 2)
  88.   (
  89.      (message (cat "\n\n\n\nNOTE\n~~~~~~~~~~~~~\nYou must be running AREXX and have " HowCompress
  90.                    " in the command path to use ARArchive!"))
  91.     
  92.  
  93.      (set osverS (askchoice (choices "2.0" "2.1" "3.0" "3.1")
  94.                      (prompt "Please Select the OS Version you are running. "
  95.                              "This will be the Machine you will install ARArchive on. "
  96.                              "This is needed to tell the ARexx script to use AmigaGuide or Multiview. "
  97.                              "The Installer has found\n" workbench " version of the OS." )
  98.                  (help   "Select OS Ver")
  99.                      (default DefCpu)
  100.              )
  101.      )
  102.      
  103.  
  104.      (if (< osverS 3) (set AGViewer "SYS:Utilities/AmigaGuide") )
  105.      (if (> osverS 2) (set AGViewer "SYS:Utilities/Multiview") )
  106.  
  107.      (delete "c:ARA")
  108.  
  109.      (if (= How 0) (set UCC "lha -q x"))
  110.      (if (= How 1) (set UCC "lzx -q -m x"))
  111.      
  112.      (textfile (dest (tackon "c:" "ARA"))
  113.                (append "/* ARA-UnCompress Robert Reiswig V1.1   rcr@netcom.com */\n")
  114.                (append "ADDRESS COMMAND\n")
  115.                (append "parse arg ARfilePath ARfile\n")
  116.                (append " \n")
  117.                (append "/* Clean names off */\n")
  118.                (append "ARfilePath = Strip(ARfilePath,'B')\n")
  119.                (append "ARfile = Strip(ARfile,'B') \n")
  120.                (append " \n")   
  121.                (append "/* Set UnCompress command , AmigaGuide Viewer, where to Uncompress */\n")
  122.                (append "Where = \"T:\"\n")
  123.                (append "UnCompressCommand = \"" UCC "\"\n") 
  124.                (append (cat "GuideViewer = \"" AGViewer "\"\n"))
  125.                (append " \n")
  126.                (append "/* Do Its thing, Unpack , display , delete */\n")
  127.                (append "UnCompressCommand || ' ' || ARfilePath || ' ' || Where \n")
  128.                (append "GuideViewer || ' ' || Where || ARFile \n")
  129.                (append "'delete >nil: ' || Where || 'AR#?'\n")
  130.                (append " \n")
  131.                
  132.      )
  133.  
  134.   )
  135. )
  136.  
  137. (if (= How 0) (set filename "ARArchive-LHA"))
  138. (if (= How 1) (set filename "ARArchive-LZX"))
  139. (if (= How 2) (set filename "ARArchive"))
  140.        
  141.  
  142. (if (< osverS 3)
  143.  ( 
  144.    (tooltype (prompt "Setting Tooltypes")
  145.         (help   "Setting Tooltypes")
  146.             (dest   (tackon ARA_dest filename))
  147.             (setdefaulttool "AmigaGuide")
  148.    )
  149.  )
  150. ) 
  151.  
  152.  
  153. (startup "ARArchive"
  154.           (prompt "Adding an ASSIGN to your S:User-startup.")
  155.           (command (DoThis))
  156.           (help
  157.                   "\nIn order for ARArchive to find the Amiga Reports"
  158.                   "an assign must be made for AR:"
  159.           )
  160. )
  161.  
  162.  
  163.  
  164.  
  165.  
  166.  
  167.